VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CUsuario"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'---------------------------------------------------------------------------------------
' Module    : CUsuario
' DateTime  : 30/11/2011 12:09
' Author    :
' Purpose   : Clase Control Usuario
'---------------------------------------------------------------------------------------
Option Explicit
Dim lusuario As New lusuario
Dim lEstado As New lEstado
Dim LPerfil As New LPerfil
Dim lPedido As New lPedido
Dim lMesa As New lMesa
Dim lSalon As New lSalon

Public Function getLista(bean As busuario) As Collection
Set getLista = lusuario.getLista(bean)
End Function
Public Function eliminar(busuario As busuario)
eliminar = lusuario.eliminar(busuario)
If eliminar = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje registroNoEliminado
End If
End Function
Public Sub guardarNuevo(bean As busuario)
If lusuario.guardarNuevo(bean) Then
    utilMensaje.muestraMensaje DatosGuardados
End If
End Sub
Public Sub actualizar(bean As busuario)
If lusuario.actualizar(bean) Then
    utilMensaje.muestraMensaje DatosGuardados
End If
End Sub
Public Sub login(bean As busuario)
Select Case lusuario.login(bean)
Case UtilConstantes.OPT_LOGIN
    Dim bpedido As New bpedido
    bpedido.bEstado.ncodigo = UtilConstantes.ESTADO_PEDIDO_PENDIENTE
    bpedido.nDiaTrabajo = bparametro.nDiaTrabajo
    Set bpedido.busuario = bparametro.bUsuarioActivo
    Set frmTablero.lSalones = lSalon.getLista
    frmTablero.Show
    Unload frmLogin
Case UtilConstantes.OPT_LOGIN_CLAVE_INCORRECTA
    utilMensaje.muestraMensaje ClaveIncorrecta
Case UtilConstantes.OPT_LOGIN_CUENTA_DESHABILITADA
    utilMensaje.muestraMensaje CuentaDeshabilitada
End Select
End Sub

